10 INPUT"DATUM 1 FORMAT TTMMJJJJ ";D$
20 T=VAL(MID$(D$,1,2))
30 M=VAL(MID$(D$,3,2))
40 J=VAL(MID$(D$,5))
50 GOSUB 1000
60 J1=JD
70 INPUT"DATUM 2 FORMAT TTMMJJJJ ";D$
80 T=VAL(MID$(D$,1,2))
90 M=VAL(MID$(D$,3,2))
100 J=VAL(MID$(D$,5))
110 GOSUB 1000
120 R=JD-J1
130 PRINT "DAZWISCHEN LIEGEN"R"TAGE."
140 END
1000 REM KALENDER -> JULIANISCH
1010 IF M>2 THEN M=M-3:GOTO 1030
1020 M=M+9:J=J-1
1030 JH=INT(J/100):JA=J-100*JH
1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
1050 JD=JD+INT((153*M+2)/5)+T
1060 RETURN